home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 24 / Amiga Format AFCD24 (Feb 1998, Issue 108).iso / -in_the_mag- / emulation / amiga / muirexx3.0 / demos / muirexxdir / lhaextract.rexx < prev    next >
OS/2 REXX Batch file  |  1998-01-20  |  391b  |  24 lines
  1. /*
  2.  
  3. Code:       lhaextract.rexx
  4. Author:     Russell Leighton
  5. Revision:   11 Jan 1996
  6.  
  7. Comments:   This script is used to extract lha archive contents.
  8.  
  9. */
  10. options results
  11.  
  12. parse arg portname' 'name' 'ddir
  13.  
  14. address command 'lha > nil: x 'name ddir
  15.  
  16. address VALUE portname
  17.  
  18. group ID DIR REGISTER
  19. ndir = result
  20.  
  21. check ID ICN||(3-ndir)
  22. dirlist ID DIR||(3-ndir) REREAD result
  23. window ID LHA CLOSE
  24.